﻿Public Class MainForm


#Region "Set Time"

#End Region

    Private Sub MainForm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
        SetAlarmTime.FocusItem = SetTime.FocusedItem.None
    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetAlarmTime.Hours = 1
        SetAlarmTime.Minutes = 10
        SetAlarmTime.Seconds = 4
    End Sub

    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
        Select Case UCase(cmdStart.Text)
            Case "START"
                SetAlarmTime.Enabled = False
                cmdStart.Text = "Stop"
            Case "STOP"
                SetAlarmTime.Enabled = True
                cmdStart.Text = "Start"
        End Select
    End Sub
End Class